home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / INITIALIZE.HIST-FILE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  364b  |  14 lines
  1. 5 D$ =  CHR$(4)
  2. 80  FOR I = 0 TO 3
  3. 90  READ A$(I)
  4. 100  NEXT I
  5. 530  DATA   "4","/QWAS HE A PRESIDENT/Y2/N3",        "/AWASHINGTON","/AFRANKLIN"
  6. 2000  PRINT D$;"DELETEHIST-FILE"
  7. 2005  PRINT D$;"OPEN HIST-FILE"
  8. 2010  PRINT D$;"WRITE HIST-FILE"
  9. 2020  PRINT A$(0)
  10. 2030  FOR I = 1 TO  VAL(A$(0))
  11. 2040  PRINT A$(I)
  12. 2050  NEXT I
  13. 2060  PRINT D$;"CLOSE HIST-FILE"
  14. 2070  END